SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMDOCU_CLIE_U01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS S.A.            --*/
/*---Sistema              : Tesoreria                  --*/
/*---M÷dulo               : Empresa                    --*/
/*---Programa             : Actualizacion Tipo Operac. --*/ 
/*---                       Documentos Clientes        --*/
/*---			    CTAS POR COBRAR            --*/ 
/*---Script               : tmdocu_clie.sql            --*/
/*---Nombre SP            : SP_TMDOCU_CLIE_U01         --*/
/*---Desarrollado por     : Eduardo Vivar              --*/
/*---Fecha Creaci÷n       : 28/01/2000                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :                            --*/
/*---Fecha Modificaci÷n   :                            --*/ 
/*---Detalle Modificaci÷n :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Drop Proc SP_TMDOCU_CLIE_U01                      --*/
/*---Grant all on SP_TMDOCU_CLIE_U01 to public         --*/ 
/*---SP_TMDOCU_CLIE_U01                                --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR 	   TD_VC_002, 
 @ISCO_USUA_MODI   TD_VC_008_USUA,
 @ISCO_TIPO_OPER   TD_VC_003,
 @ISCO_TIPO_DOCU   TD_VC_003,
 @ISNU_DOCU_CLIE   TD_VC_020,
 @ISCO_CLIE 	   TD_VC_020 
 as

 Begin Tran  SP_TMDOCU_CLIE_I01
  
   Update  TMDOCU_CLIE 
   Set 	   CO_TIPO_OPER = @ISCO_TIPO_OPER,
           FE_USUA_MODI = Getdate(), 
	   CO_USUA_MODI = @ISCO_USUA_MODI
   Where   CO_EMPR = @ISCO_EMPR	
	   And CO_CLIE = @ISCO_CLIE 
           And CO_TIPO_DOCU = @ISCO_TIPO_DOCU
           And NU_DOCU_CLIE = @ISNU_DOCU_CLIE 

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End

   Update  TTDOCC_ANUL 
   Set     CO_TIPO_OPER = @ISCO_TIPO_OPER,
           FE_USUA_MODI = Getdate(), 
           CO_USUA_MODI = @ISCO_USUA_MODI
   Where   CO_EMPR = @ISCO_EMPR
	   And CO_CLIE = @ISCO_CLIE
           And CO_TIPO_DOCU = @ISCO_TIPO_DOCU
           And NU_DOCU_CLIE = @ISNU_DOCU_CLIE 

   If @@error <> 0
      Begin
        Rollback tran
        Return
      End

 Commit Tran

/*------------------------- Fin ------------------------------*/


GO
